www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\Inc\Cls_Templet.asp
<% Dim Templet_Tag,Templet_Ids,Templet_TagName '模板内容替换筛选 Function Templet_Change(Tags,Ide) Ides=split(Ide,",") Select Case Tags Case Else Templet_Change="" End Select End Function '通用替换 Function Templet_ChangeAll(TempletStr,Types) TempletStr=replace(TempletStr,"{$SiteName$}",Site_Name) TempletStr=replace(TempletStr,"{$SiteUrl$}",Site_Url) TempletStr=replace(TempletStr,"{$SiteDir$}",Site_Dir&"Skin/"&Site_Templet&"/") If Site_Type=1 Then TempletStr=replace(TempletStr,"{$SiteDirs$}Index.asp","{$SiteDirs$}Index.html") sqlstr="select top 1 * from [Helps_Category] where Helps_Category_Show=0 order by Helps_Category_Order desc,Helps_Category_Id asc" rs.open sqlstr,conn,1,3 If Not rs.eof Then j=rs("Helps_Category_Id") Else j=0 End If rs.close TempletStr=replace(TempletStr,"{$SiteDirs$}List.asp","{$SiteDirs$}Category_"&j&".html") TempletStr=replace(TempletStr,"{$SiteDirs$}Guest.asp","{$SiteDirs$}Guest.html") End If TempletStr=replace(TempletStr,"{$SiteDirs$}",Site_Dir) Select Case Types Case 2 TempletStr=replace(TempletStr,"{$Ids$}",id) TempletStr=replace(TempletStr,"{$HelpsCategoryName$}",Helps_Category_Name) Case 4 TempletStr=replace(TempletStr,"{$HelpsSearchStr$}",Strs) End Select Templet_ChangeAll=TempletStr End Function '替换帮助 Function Templet_ChangeHelp(TempletStr) TempletStr=replace(TempletStr,"{$HelpsTitle$}",Helps_Title) TempletStr=replace(TempletStr,"{$HelpsContent$}",Helps_Content) Templet_ChangeHelp=TempletStr End Function '列表替换 Function Templet_ChangeLists(TempletStr) While instr(TempletStr,"{$$")>0 Templet_Tag=mid(TempletStr,clng(InStr(TempletStr,"{$$")),clng(InStr(TempletStr,"End$$}"))-clng(InStr(TempletStr,"{$$"))+6) Templet_Tag2=split(split(Templet_Tag,"{$$")(1),"$$}")(0) Templet_Tag3=split(Templet_Tag2,"(")(0) Templet_Tag4=replace(split(Templet_Tag2,"(")(1),")","") Templet_Tag5=split(split(Templet_Tag,"$$}")(1),"{$$")(0) Select Case Templet_Tag3 Case "HelpsCategoryList" TempletStr=replace(TempletStr,Templet_Tag,SHelpsCategoryList(Templet_Tag5)) Case "HelpsList" Ides=split(Templet_Tag4,",") TempletStr=replace(TempletStr,Templet_Tag,SHelpsList(Ides(0),Ides(1),Ides(2),Templet_Tag5)) Case "HelpsSearchList" Ides=split(Templet_Tag4,",") TempletStr=replace(TempletStr,Templet_Tag,SHelpsSearchList(Ides(0),Ides(1),Templet_Tag5)) Case Else TempletStr=replace(TempletStr,Templet_Tag,"") End Select Wend Templet_ChangeLists=TempletStr End Function '模块替换 Function Templet_ChangeTy(TempletStr) While instr(TempletStr,"{$")>0 Templet_Tag=mid(TempletStr,InStr(TempletStr,"{$"),InStr(TempletStr,"$}")-InStr(TempletStr,"{$")+2) Templet_Ids=split(split(Templet_Tag,"(")(1),")")(0) Templet_TagName=replace(split(Templet_Tag,"(")(0),"{$","") TempletStr=replace(TempletStr,Templet_Tag,Templet_Change(Templet_TagName,Templet_Ids)) Wend Templet_ChangeTy=TempletStr End Function %>